home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / btrtest / btrieve.bas next >
BASIC Source File  |  1995-03-14  |  2KB  |  69 lines
  1. 'Btrieve Operation Code Constants
  2. Global Const BOPEN = 0
  3. Global Const BCLOSE = 1
  4. Global Const BINSERT = 2
  5. Global Const BUPDATE = 3
  6. Global Const BDELETE = 4
  7. Global Const BGET_EQ = 5
  8. Global Const BGET_NEXT = 6
  9. Global Const BGET_PREV = 7
  10. Global Const BGET_GT = 8
  11. Global Const BGET_GOE = 9
  12. Global Const BGET_LT = 10
  13. Global Const BGET_LOE = 11
  14. Global Const BGET_FIRST = 12
  15. Global Const BGET_LAST = 13
  16. Global Const BCREATE = 14
  17. Global Const BSTAT = 15
  18. Global Const BBEG_TRAN = 19
  19. Global Const BEND_TRAN = 20
  20. Global Const BABORT_TRAN = 21
  21. Global Const BGET_POS = 22
  22. Global Const BGET_DIRECT = 23
  23. Global Const BSTEP_NEXT = 24
  24. Global Const BSTOP = 25
  25. Global Const BVERSION = 26
  26. Global Const BUNLOCK = 27
  27. Global Const BRESET = 28
  28. Global Const BSTEP_FIRST = 33
  29. Global Const BSTEP_LAST = 34
  30. Global Const BSTEP_PREV = 35
  31.  
  32. Type POSBLK
  33.     PBELEMENTS As String * 128   'MUST Be 128 Bytes
  34. End Type
  35.  
  36. Type KEYBUFFER
  37.     FILENAME As String * 128
  38. End Type
  39.  
  40. Type BUFFER
  41.     EmpNum As String * 5
  42.     LstNam As String * 20
  43.     FstNam As String * 20
  44.     EmpMid As String * 20
  45.     EmpKik As String * 12
  46.     Addr01 As String * 40
  47.     Addr02 As String * 40
  48.     SocSec As String * 25
  49.     State  As String * 20
  50.     ZipCod As String * 10
  51.     County As String * 20
  52.     Countr As String * 20
  53.     HPhone As String * 15
  54.     WPhone As String * 15
  55.     Filler As String * 218
  56.     'File length = 500 bytes
  57. End Type
  58.  
  59. Declare Function WBTRVINIT Lib "WBTRCALL.DLL" (INIT As Any) As Integer
  60. Declare Function WBTRVSTOP Lib "WBTRCALL.DLL" () As Integer
  61. Declare Function BTRCALL Lib "WBTRCALL.DLL" (ByVal OP%, PB As POSBLK, DB As Any, DL As Integer, KB As Any, ByVal KL%, ByVal KN%) As Integer
  62.  
  63. Global INIT As String * 64
  64. Global DATABUFF As BUFFER
  65. Global POSBLOCK As POSBLK
  66. Global KEYBUFF As KEYBUFFER
  67. Global KeyNum As Integer
  68.  
  69.